home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 July & August / PCWorld_2007-07-08_cd.bin / v cisle / multiav / Multi_AV.exe / KAV.kix < prev    next >
Text File  |  2007-05-09  |  5KB  |  204 lines
  1. ;
  2. ;  05-09-2007 // v2.00
  3. ;
  4. SETCONSOLE("hide")
  5. $ProcMode1=left($ProcMode,1)
  6. SELECT
  7.   CASE $ProcMode1="R"
  8.     $MalwareProcMode=' /- /E '
  9.   CASE $ProcMode1="D"
  10.     $MalwareProcMode=' '
  11. ENDSELECT
  12. $SafeMode="N"
  13. $home="c:\AV-CLS\KAV"
  14. $procedurefile="c:\AV-CLS\killproc.txt"
  15. $CMDline1='/* /MD /MP /Y /Z- /W+=ScanReport.txt '
  16. $CMDline=$MalwareProcMode+$CMDline1
  17. $drive=left($home,2)
  18. go $drive
  19. md $home
  20. if exist ("c:\AV-CLS\unrar.exe")=0
  21.   cd "c:\AV-CLS"
  22.   SETCONSOLE("SHOW")
  23.   SETCONSOLE("MAXIMIZE")
  24.   SETCONSOLE("FOREGROUND")
  25.   SETTITLE ("Kaspersky Module")
  26.   cls
  27.   Color y+/b
  28.   cls
  29.   shell "wget http://www.rarlab.com/rar/urar336d.zip"
  30.   SETCONSOLE("hide")
  31.   shell "unzip -j -o urar336d.zip"
  32.   del "*.DIZ"
  33.   del "*.zip"
  34.   del "*.PAT"
  35.   cls
  36. endif
  37. if exist ("$home\AVP_LOC.DLL")=0
  38.   copy "c:\AV-CLS\AVP_LOC.DLL"  $home
  39. endif
  40. cd $home
  41. $WMICheck = ConfirmWMI()     
  42. If ($WMICheck="")=0  
  43.   Dim $objWMIServ
  44.   $objWMIServ=GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL",48)
  45.   For Each $obj In $objWMIServ
  46.     $BootupState=$obj.BootupState
  47.   Next
  48.   $BootStat=$BootupState
  49.   $BootupState=left(ucase($BootupState),6)  
  50.   if ($BootupState="NORMAL")=0 $SafeMode="Y" endif
  51. Else   
  52.   $BootStat="Undetermined"
  53.   $SafeMode="U"
  54. EndIf
  55. If ($SafeMode="Y")=1 and exist ("avp.set")=1 goto SCAN endif
  56. If ($SafeMode="Y")=1 and exist ("avp.set")=0 
  57.   if @inwin=1
  58.     BEEP
  59.     ShutDown ("","Kaspersky signature files were not found. The computer is being shutdown so you can download the needed Kaspersky files in Normal Mode",30,1,1)
  60.     goto END
  61.   else
  62.     BEEP
  63.     messagebox("Kaspersky signature files were not found. The computer is being shutdown so you can download the needed Sophos files in Normal Mode"," Sophos Command Line Scanner ",48,15)
  64.     run "%windir%\RUNDLL32.EXE user.exe,ExitWindows"
  65.     goto END
  66.   endif
  67. endif
  68. gosub "GetFiles"
  69. :SCAN
  70. $result=messagebox ("Do you want to run the Kaspersky CLS now ? "," Kaspersky Command Line Scanner ",36,20)
  71. SELECT
  72.   CASE ($result="6")=1
  73.     ; YES
  74.     $result=messagebox ("Do you want to scan a particular folder or location  ? "," Kaspersky Command Line Scanner ",36,20)
  75.     KillProcess()
  76.     SELECT
  77.       CASE ($result="6")=1
  78.         ; YES
  79.         gosub "ScanFolder"
  80.       CASE ($result="7")=1
  81.         ; NO
  82.         CleanCache()
  83.         gosub "ScanDefault"
  84.     ENDSELECT
  85.   CASE ($result="7")=1
  86.     ; NO
  87.     cls
  88.     goto END
  89.   CASE 1
  90.     ; NO
  91.     cls
  92.     goto END
  93. ENDSELECT
  94. :END
  95. SETCONSOLE("hide")
  96. exit
  97. ;---------------------------------------------------
  98. :GetFiles
  99.   SETCONSOLE("SHOW")
  100.   SETCONSOLE("MAXIMIZE")
  101.   SETCONSOLE("FOREGROUND")
  102.   SETTITLE ("Kaspersky Module")
  103.   cls
  104.   Color y+/b
  105.   cls
  106.   shell "c:\AV-CLS\wget -N --tries=2 --timeout=15 --passive-ftp ftp://updates2.kaspersky-labs.com/updates_ext/*.avc"
  107.   shell "c:\AV-CLS\wget -N --tries=2 --timeout=15 --passive-ftp ftp://updates2.kaspersky-labs.com/updates_ext/avp.*"
  108.   cls
  109.   if exist ("KAVDOS32.EXE")=0
  110.     shell "c:\AV-CLS\wget -N http://www.filegate.net/anti-virus/avdos/kavdos32.rar"
  111.     SETCONSOLE("hide")
  112.     shell "c:\AV-CLS\unrar e -o+ kavdos32.rar"
  113.     cls
  114.   else
  115.     SETCONSOLE("hide")
  116.   endif
  117.   del "kavdos32.rar"
  118.   del "KAVTUN32.EXE"
  119.   del "readme.txt"
  120.   del "*.bat"
  121.   cls
  122. return
  123. ;---------------------------------------------------
  124. :ScanDefault
  125.   copy "KAVDOS32.EXE" "t.EXE"
  126.   SETCONSOLE("SHOW")
  127.   SETCONSOLE("MAXIMIZE")
  128.   SETCONSOLE("FOREGROUND")
  129.   SETTITLE ("Kaspersky Module")
  130.   Color y+/n
  131.   cls
  132.   $CMDline=$CMDline+" *:"
  133.   shell 't.EXE $CMDline'
  134.   SETTITLE ("Kaspersky Module")
  135.   SETCONSOLE("hide")
  136.   del "t.EXE"
  137.   gosub "ShowReport"
  138. return
  139. ;---------------------------------------------------
  140. :ShowReport
  141.   if exist ("ScanRepo.txt")=1 
  142.     copy "ScanRepo.txt" "ScanReport.txt"
  143.     run "notepad ScanReport.txt" 
  144.     del "ScanRepo.txt"
  145.   endif
  146. Return
  147. ;---------------------------------------------------
  148. :ScanFolder
  149.   copy "KAVDOS32.EXE" "t.EXE"
  150.   :REPEAT
  151.   If ($Browser="Y")=1
  152.     $folder=GUIdialog()
  153.     if @error or (left($folder,2)="::")=1
  154.       $folder="C:"
  155.     endif
  156.   else
  157.     SETCONSOLE("SHOW")
  158.     SETCONSOLE("MAXIMIZE")
  159.     SETCONSOLE("FOREGROUND")
  160.     SETTITLE ("Kaspersky Module")
  161.     Color g+/n
  162.     cls
  163.     AT  (6,18) "Please enter the target location"
  164.     color y+/b
  165.     AT  (7,18) "                                              "
  166.     AT  (8,18) "                                              "
  167.     AT  (9,18) "                                              "
  168.     AT  (8,19)
  169.     FLUSHKB
  170.     gets $folder
  171.     $folder=ltrim(rtrim($folder))
  172.     if exist ($folder)=0 
  173.       Color r+/n
  174.       AT  (10,18) "Bad Folder or location name... Please try again."
  175.       sleep 3
  176.       goto REPEAT 
  177.     endif
  178.   endif
  179.   SETCONSOLE("SHOW")
  180.   SETCONSOLE("MAXIMIZE")
  181.   SETCONSOLE("FOREGROUND")
  182.   SETTITLE ("Kaspersky Module")
  183.   Color y+/n
  184.   cls
  185.   if len($folder)>2
  186.     $objFSO=CreateObject("Scripting.FileSystemObject")
  187.     $objFolder=$objFSO.GetFolder($folder)
  188.     $folder=$objFolder.ShortPath
  189.   endif
  190.   Color g+/n
  191.   cls
  192.   AT  (1,0)  "Scanning... "+$folder
  193.   AT  (3,0) 
  194.   Color y+/n
  195.   $CMDline=$CMDline+" "+$folder
  196.   SETTITLE ("Kaspersky Module")
  197.   shell 't.EXE $CMDline'
  198.   SETCONSOLE("hide")
  199.   del "t.EXE"
  200.   gosub "ShowReport"
  201. return
  202.  
  203.  
  204.